home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / Finder.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  2.0 KB  |  74 lines  |  [TEXT/MPS ]
  1. {
  2.     File:        Finder.p    
  3.  
  4.     Contains:    File types of alias files and other Finder/system things.
  5.     
  6.                 
  7.     Copyright:    © 1990 by Apple Computer, Inc., all rights reserved.
  8.  
  9. }
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12.     {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT Finder;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingFinder}
  21. {$SETC UsingFinder := 1}
  22.  
  23. {$I+}
  24. {$SETC FinderIncludes := UsingIncludes}
  25. {$SETC UsingIncludes := 1}
  26. {$IFC UNDEFINED UsingAliases}
  27. {$I $$Shell(PInterfaces)Aliases.p}            { include ResolveAliasFile definition }
  28. {$ENDC}
  29. {$IFC UNDEFINED UsingFolders}
  30. {$I $$Shell(PInterfaces)Folders.p}            { include FindFolder definition }
  31. {$ENDC}
  32. {$IFC UNDEFINED UsingFiles}
  33. {$I $$Shell(PInterfaces)Files.p}            { include Finder info and Desktop Database routines }
  34. {$ENDC}
  35. {$IFC UNDEFINED UsingGestaltEqu}
  36. {$I $$Shell(PInterfaces)GestaltEqu.p}        { include gestalt selectors }
  37. {$ENDC}
  38. {$SETC UsingIncludes := FinderIncludes}
  39.  
  40.  
  41. CONST
  42.      kCustomIconResource                =        -16455;        { Custom icon family resource ID }
  43.  
  44.      kContainerFolderAliasType        =        'fdrp';        { type for folder aliases }
  45.      kContainerTrashAliasType         =        'trsh';        { type for trash folder aliases }
  46.      kContainerHardDiskAliasType     =        'hdsk';        { type for hard disk aliases }
  47.      kContainerFloppyAliasType         =        'flpy';        { type for floppy aliases }
  48.      kContainerServerAliasType         =        'srvr';        { type for server aliases }
  49.      kApplicationAliasType             =        'adrp';        { type for application aliases }
  50.      kContainerAliasType             =        'drop';        { type for all other containers }
  51.  
  52.     { type for Special folder aliases }
  53.      kSystemFolderAliasType             =        'fasy';
  54.      kAppleMenuFolderAliasType         =        'faam';
  55.      kStartupFolderAliasType         =        'fast';
  56.      kPrintMonitorDocsFolderAliasType =        'fapn';
  57.      kPreferencesFolderAliasType     =        'fapf';
  58.      kControlPanelFolderAliasType     =        'fact';
  59.      kExtensionFolderAliasType         =        'faex';
  60.  
  61.     { type for AppleShare folder aliases }
  62.     kExportedFolderAliasType        =        'faet';
  63.      kDropFolderAliasType             =        'fadr';    
  64.      kSharedFolderAliasType             =        'fash';    
  65.      kMountedFolderAliasType         =        'famn';    
  66.  
  67.  
  68. {$ENDC}    { UsingFinder }
  69.  
  70. {$IFC NOT UsingIncludes}
  71.     END.
  72. {$ENDC}
  73.  
  74.